home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Util / Commodities / DFA-25.lha / DFA-25 / Archive / DFA.lha / Rexx / email.dfa < prev    next >
Text File  |  1995-05-25  |  1KB  |  52 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : email.dfa
  6. ** Created on       : Monday, 04.04.94 16:03:38
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V2.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **  Calls an UUCP mailer (default: elm) with the e-mail address #1
  14. **  of the current address.
  15. **
  16. **  Notice: To give the mailer another e-mail address than #1 just
  17. **          use "adr.ADDRESS.13" (#2) or "adr.ADDRESS.14" (#3).
  18. **
  19. **          To Change the mailer, just change 'MAILER' variable accordingly.
  20. **
  21. **
  22. ** Revision V2.0
  23. ** --------------
  24. ** created on Monday, 04.04.94 16:03:38  by  Dirk Federlein.   LogMessage :
  25. **     --- Initial release ---
  26. **
  27. *********************************************************************************/
  28.  
  29. options results
  30.  
  31. MAILER    = 'uucp:c/elm'
  32.  
  33. address "DFA"
  34.  
  35. cr = '0A'X
  36.  
  37. if ~show(ports, DFA) then
  38. do
  39.     exit 10
  40. end
  41.  
  42. GETCURRENT "STEM ADR."
  43.  
  44. if rc=0 then
  45. do
  46.     address command 'uucp:c/elm' adr.ADDRESS.12
  47. end
  48. else
  49.     say 'You must have an active address,' cr 'to get an e-mail address from it'
  50.  
  51. exit
  52.